/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / schools / algorithms / patmatch

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 33 f4 20 50 72 | 6f 67 72 61 6d 20 50 61 |...3. Pr|ogram Pa|
|00000010| 74 4d 61 74 63 68 20 20 | 76 31 32 20 20 28 41 72 |tMatch  |v12  (Ar|
|00000020| 63 68 69 6d 65 64 65 73 | 20 2b 20 42 41 53 49 43 |chimedes| + BASIC|
|00000030| 20 56 29 0d 00 14 21 f4 | 20 28 63 29 20 44 2e 45 | V)...!.| (c) D.E|
|00000040| 2e 20 42 6f 77 65 72 20 | 20 32 37 20 44 65 63 20 |. Bower | 27 Dec |
|00000050| 31 39 39 30 0d 00 1e 05 | 20 0d 00 28 27 f4 20 44 |1990....| ..('. D|
|00000060| 65 6d 6f 20 66 6f 72 20 | 4b 6e 75 74 68 2d 4d 6f |emo for |Knuth-Mo|
|00000070| 72 72 69 73 2d 50 72 61 | 74 74 20 28 4b 4d 50 29 |rris-Pra|tt (KMP)|
|00000080| 0d 00 32 26 f4 20 42 6f | 79 65 72 2d 4d 6f 6f 72 |..2&. Bo|yer-Moor|
|00000090| 65 20 28 42 4d 29 20 61 | 6e 64 20 62 72 75 74 65 |e (BM) a|nd brute|
|000000a0| 20 66 6f 72 63 65 0d 00 | 3c 22 f4 20 70 61 74 74 | force..|<". patt|
|000000b0| 65 72 6e 20 6d 61 74 63 | 68 69 6e 67 20 61 6c 67 |ern matc|hing alg|
|000000c0| 6f 72 69 74 68 6d 73 2e | 0d 00 46 05 20 0d 00 50 |orithms.|..F. ..P|
|000000d0| 30 f4 20 53 65 61 72 63 | 68 20 54 65 78 74 20 73 |0. Searc|h Text s|
|000000e0| 74 72 69 6e 67 20 54 65 | 78 74 28 31 29 2e 2e 2e |tring Te|xt(1)...|
|000000f0| 54 65 78 74 28 54 65 78 | 74 6c 65 6e 29 0d 00 5a |Text(Tex|tlen)..Z|
|00000100| 2f f4 20 66 6f 72 20 50 | 61 74 74 65 72 6e 20 73 |/. for P|attern s|
|00000110| 74 72 69 6e 67 20 50 61 | 74 6e 28 31 29 2e 2e 2e |tring Pa|tn(1)...|
|00000120| 50 61 74 6e 28 50 61 74 | 6c 65 6e 29 0d 00 64 05 |Patn(Pat|len)..d.|
|00000130| 20 0d 00 6e 2e f4 20 4e | 6f 74 65 20 74 68 61 74 | ..n.. N|ote that|
|00000140| 20 74 68 65 20 70 72 6f | 67 72 61 6d 20 68 61 73 | the pro|gram has|
|00000150| 20 62 65 65 6e 20 6f 70 | 74 69 6d 69 73 65 64 0d | been op|timised.|
|00000160| 00 78 2d f4 20 66 6f 72 | 20 63 6c 61 72 69 74 79 |.x-. for| clarity|
|00000170| 20 72 61 74 68 65 72 20 | 74 68 61 6e 20 65 78 65 | rather |than exe|
|00000180| 63 75 74 69 6f 6e 20 73 | 70 65 65 64 0d 00 82 31 |cution s|peed...1|
|00000190| f4 20 65 78 63 65 70 74 | 20 74 68 61 74 20 74 68 |. except| that th|
|000001a0| 65 20 70 61 74 74 65 72 | 6e 20 61 6e 64 20 74 65 |e patter|n and te|
|000001b0| 78 74 20 61 72 65 20 73 | 74 6f 72 65 64 0d 00 8c |xt are s|tored...|
|000001c0| 32 f4 20 61 73 20 62 79 | 74 65 20 61 72 72 61 79 |2. as by|te array|
|000001d0| 73 20 66 6f 72 20 66 61 | 73 74 20 61 63 63 65 73 |s for fa|st acces|
|000001e0| 73 20 74 6f 20 63 68 61 | 72 61 63 74 65 72 73 0d |s to cha|racters.|
|000001f0| 00 96 05 20 0d 00 a0 20 | f4 20 27 41 6c 67 6f 72 |... ... |. 'Algor|
|00000200| 69 74 68 6d 73 27 20 20 | 52 2e 20 53 65 64 67 65 |ithms'  |R. Sedge|
|00000210| 77 69 63 6b 0d 00 aa 23 | f4 20 28 32 6e 64 20 65 |wick...#|. (2nd e|
|00000220| 64 2e 20 41 64 64 69 73 | 6f 6e 2d 57 65 73 6c 65 |d. Addis|on-Wesle|
|00000230| 79 20 31 39 38 39 29 0d | 00 b4 04 0d 00 be 2d f4 |y 1989).|......-.|
|00000240| 20 27 48 6f 77 20 74 6f | 20 53 6f 6c 76 65 20 69 | 'How to| Solve i|
|00000250| 74 20 62 79 20 43 6f 6d | 70 75 74 65 72 27 20 52 |t by Com|puter' R|
|00000260| 2e 20 44 72 6f 6d 65 79 | 0d 00 c8 1a f4 20 28 50 |. Dromey|..... (P|
|00000270| 72 65 6e 74 69 63 65 2d | 48 61 6c 6c 20 31 39 38 |rentice-|Hall 198|
|00000280| 32 29 0d 00 d2 05 20 0d | 00 dc 21 f4 20 20 4d 65 |2).... .|..!.  Me|
|00000290| 74 68 6f 64 20 20 20 41 | 76 65 72 61 67 65 20 20 |thod   A|verage  |
|000002a0| 20 20 20 57 6f 72 73 74 | 0d 00 e6 21 f4 20 20 20 |   Worst|...!.   |
|000002b0| 20 20 20 20 20 20 20 20 | 20 73 70 65 65 64 20 20 |        | speed  |
|000002c0| 20 20 20 20 20 63 61 73 | 65 0d 00 f0 05 20 0d 00 |     cas|e.... ..|
|000002d0| fa 29 f4 20 20 42 72 75 | 74 65 20 20 20 20 20 4f |.).  Bru|te     O|
|000002e0| 28 54 29 20 20 20 20 20 | 20 20 4f 28 54 2a 50 29 |(T)     |  O(T*P)|
|000002f0| 20 20 20 20 20 20 5c 0d | 01 04 3f f4 20 20 4b 2d |      \.|..?.  K-|
|00000300| 4d 2d 50 20 20 20 20 20 | 4f 28 54 29 20 20 20 20 |M-P     |O(T)    |
|00000310| 20 20 20 4f 28 54 29 20 | 20 20 20 20 20 20 20 20 |   O(T) |        |
|00000320| 7c 20 54 3d 54 65 78 74 | 6c 65 6e 20 20 20 50 3d || T=Text|len   P=|
|00000330| 50 61 74 6c 65 6e 0d 01 | 0e 29 f4 20 20 42 2d 4d |Patlen..|.).  B-M|
|00000340| 20 20 20 20 20 20 20 4f | 28 54 2f 50 29 20 20 20 |       O|(T/P)   |
|00000350| 20 20 4f 28 54 2a 50 29 | 20 20 20 20 20 20 2f 0d |  O(T*P)|      /.|
|00000360| 01 18 05 20 0d 01 22 05 | 20 0d 01 2c 44 ee 20 85 |... ..".| ..,D. .|
|00000370| 3a ee 20 85 20 87 3a eb | 30 3a fb 30 3a fb 31 32 |:. . .:.|0:.0:.12|
|00000380| 39 3a db 3a ef 32 33 2c | 31 2c 31 7c 3a e7 20 9f |9:.:.23,|1,1|:. .|
|00000390| 3c 3e 31 37 20 8c 3a f6 | 3a f1 22 20 61 74 20 6c |<>17 .:.|:." at l|
|000003a0| 69 6e 65 20 22 3b 9e 3a | e0 20 8b 20 e0 0d 01 36 |ine ";.:|. . ...6|
|000003b0| 05 20 0d 01 40 27 54 65 | 78 74 6c 65 6e 3d 38 30 |. ..@'Te|xtlen=80|
|000003c0| 30 3a 50 61 74 6d 61 78 | 3d 31 35 3a 61 73 63 69 |0:Patmax|=15:asci|
|000003d0| 69 63 68 61 72 3d 31 32 | 37 0d 01 4a 05 20 0d 01 |ichar=12|7..J. ..|
|000003e0| 54 39 de 20 54 65 78 74 | 20 54 65 78 74 6c 65 6e |T9. Text| Textlen|
|000003f0| 2c 50 61 74 6e 20 50 61 | 74 6d 61 78 2c 4e 65 78 |,Patn Pa|tmax,Nex|
|00000400| 74 20 50 61 74 6d 61 78 | 2c 53 6b 69 70 20 61 73 |t Patmax|,Skip as|
|00000410| 63 69 69 63 68 61 72 0d | 01 5e 04 0d 01 68 07 eb |ciichar.|.^...h..|
|00000420| 20 37 0d 01 72 1b 52 24 | 3d bd 31 32 39 3a 47 24 | 7..r.R$|=.129:G$|
|00000430| 3d bd 31 33 30 3a 42 24 | 3d bd 31 33 32 0d 01 7c |=.130:B$|=.132..||
|00000440| 0f e3 20 72 6f 77 3d 31 | 20 b8 20 32 0d 01 86 31 |.. row=1| . 2...1|
|00000450| f1 8a 34 2c 72 6f 77 29 | 3b bd 31 34 31 3b 47 24 |..4,row)|;.141;G$|
|00000460| 22 50 61 74 74 65 72 6e | 20 4d 61 74 63 68 69 6e |"Pattern| Matchin|
|00000470| 67 20 41 6c 67 6f 72 69 | 74 68 6d 73 22 0d 01 90 |g Algori|thms"...|
|00000480| 05 ed 0d 01 9a 2a f1 8a | 35 2c 33 29 3b 47 24 22 |.....*..|5,3);G$"|
|00000490| 5f 5f 5f 5f 5f 5f 5f 20 | 5f 5f 5f 5f 5f 5f 5f 5f |_______ |________|
|000004a0| 20 5f 5f 5f 5f 5f 5f 5f | 5f 5f 5f 22 0d 01 a4 05 | _______|___"....|
|000004b0| 20 0d 01 ae 2a f1 8a 37 | 2c 38 29 3b 52 24 22 28 | ...*..7|,8);R$"(|
|000004c0| 31 29 20 20 22 42 24 22 | 42 72 75 74 65 20 66 6f |1)  "B$"|Brute fo|
|000004d0| 72 63 65 20 6d 65 74 68 | 6f 64 22 0d 01 b8 28 f1 |rce meth|od"...(.|
|000004e0| 8a 37 2c 31 31 29 3b 52 | 24 22 28 32 29 20 20 22 |.7,11);R|$"(2)  "|
|000004f0| 42 24 22 4b 2d 4d 2d 50 | 20 41 6c 67 6f 72 69 74 |B$"K-M-P| Algorit|
|00000500| 68 6d 22 0d 01 c2 2b f1 | 8a 37 2c 31 34 29 3b 52 |hm"...+.|.7,14);R|
|00000510| 24 22 28 33 29 20 20 22 | 42 24 22 42 6f 79 65 72 |$"(3)  "|B$"Boyer|
|00000520| 2d 4d 6f 6f 72 65 20 6d | 65 74 68 6f 64 22 0d 01 |-Moore m|ethod"..|
|00000530| cc 29 f1 8a 37 2c 32 31 | 29 3b 47 24 22 50 6c 65 |.)..7,21|);G$"Ple|
|00000540| 61 73 65 20 65 6e 74 65 | 72 20 31 20 6f 72 20 32 |ase ente|r 1 or 2|
|00000550| 20 6f 72 20 33 22 3b 0d | 01 d6 05 f5 0d 01 e0 0b | or 3";.|........|
|00000560| 2a 46 58 31 35 2c 31 0d | 01 ea 0d 4d 6f 64 65 3d |*FX15,1.|...Mode=|
|00000570| a5 2d 34 38 0d 01 f4 1e | fd 20 4d 6f 64 65 3d 31 |.-48....|. Mode=1|
|00000580| 20 84 20 4d 6f 64 65 3d | 32 20 84 20 4d 6f 64 65 | . Mode=|2 . Mode|
|00000590| 3d 33 0d 01 fe 05 20 0d | 02 08 2a f1 8a 37 2c 38 |=3.... .|..*..7,8|
|000005a0| 29 3b 52 24 22 28 31 29 | 20 20 22 42 24 22 4c 61 |);R$"(1)|  "B$"La|
|000005b0| 6e 67 75 61 67 65 20 20 | 20 54 65 78 74 20 20 20 |nguage  | Text   |
|000005c0| 22 0d 02 12 15 f1 8a 37 | 2c 31 31 29 3b c4 33 30 |"......7|,11);.30|
|000005d0| 2c 22 20 22 29 3b 0d 02 | 1c 2b f1 8a 37 2c 31 34 |," ");..|.+..7,14|
|000005e0| 29 3b 52 24 22 28 32 29 | 20 20 22 42 24 22 52 61 |);R$"(2)|  "B$"Ra|
|000005f0| 6e 64 6f 6d 69 73 65 64 | 20 54 65 78 74 20 20 20 |ndomised| Text   |
|00000600| 22 0d 02 26 15 f1 8a 37 | 2c 32 31 29 3b c4 33 30 |"..&...7|,21);.30|
|00000610| 2c 22 20 22 29 3b 0d 02 | 30 24 f1 8a 37 2c 32 31 |," ");..|0$..7,21|
|00000620| 29 3b 47 24 22 50 6c 65 | 61 73 65 20 65 6e 74 65 |);G$"Ple|ase ente|
|00000630| 72 20 31 20 6f 72 20 32 | 22 3b 0d 02 3a 05 f5 0d |r 1 or 2|";..:...|
|00000640| 02 44 0b 2a 46 58 31 35 | 2c 31 0d 02 4e 0e 4c 74 |.D.*FX15|,1..N.Lt|
|00000650| 79 70 65 3d a5 2d 34 38 | 0d 02 58 17 fd 20 4c 74 |ype=.-48|..X.. Lt|
|00000660| 79 70 65 3d 31 20 84 20 | 4c 74 79 70 65 3d 32 0d |ype=1 . |Ltype=2.|
|00000670| 02 62 05 20 0d 02 6c 07 | eb 20 37 0d 02 76 0c ef |.b. ..l.|. 7..v..|
|00000680| 32 33 2c 31 2c 30 7c 0d | 02 80 2b ef 32 33 2c 32 |23,1,0|.|..+.23,2|
|00000690| 35 35 2c 32 35 35 2c 32 | 35 35 2c 32 35 35 2c 32 |55,255,2|55,255,2|
|000006a0| 35 35 2c 32 35 35 2c 32 | 35 35 2c 32 35 35 2c 32 |55,255,2|55,255,2|
|000006b0| 35 35 0d 02 8a 0b 42 6c | 6b 3d 32 35 35 0d 02 94 |55....Bl|k=255...|
|000006c0| 08 4b 25 3d 30 0d 02 9e | 05 20 0d 02 a8 15 e3 20 |.K%=0...|. ..... |
|000006d0| 50 70 74 3d 31 20 b8 20 | 54 65 78 74 6c 65 6e 0d |Ppt=1 . |Textlen.|
|000006e0| 02 b2 0f e7 20 4c 74 79 | 70 65 3d 31 20 8c 0d 02 |.... Lty|pe=1 ...|
|000006f0| bc 29 f5 3a 4b 25 3d 4b | 25 2b 31 3a 5a 25 3d 3f |.).:K%=K|%+1:Z%=?|
|00000700| 28 90 2b 4b 25 29 3a fd | 20 5a 25 3e 33 31 20 80 |(.+K%):.| Z%>31 .|
|00000710| 20 5a 25 3c 31 32 37 0d | 02 c6 05 cc 0d 02 d0 0f | Z%<127.|........|
|00000720| 5a 25 3d 33 31 2b b3 28 | 39 35 29 0d 02 da 05 cd |Z%=31+.(|95).....|
|00000730| 0d 02 e4 14 54 65 78 74 | 3f 50 70 74 3d 5a 25 3a |....Text|?Ppt=Z%:|
|00000740| ef 20 5a 25 0d 02 ee 05 | ed 0d 02 f8 05 20 0d 03 |. Z%....|..... ..|
|00000750| 02 2f e7 20 4d 6f 64 65 | 3d 31 20 8c 20 f1 8a 31 |./. Mode|=1 . ..1|
|00000760| 30 2c 32 31 29 3b 42 24 | 22 42 72 75 74 65 20 66 |0,21);B$|"Brute f|
|00000770| 6f 72 63 65 20 6d 65 74 | 68 6f 64 22 3b 0d 03 0c |orce met|hod";...|
|00000780| 2c e7 20 4d 6f 64 65 3d | 32 20 8c 20 f1 8a 31 32 |,. Mode=|2 . ..12|
|00000790| 2c 32 31 29 3b 42 24 22 | 4b 2d 4d 2d 50 20 41 6c |,21);B$"|K-M-P Al|
|000007a0| 67 6f 72 69 74 68 6d 22 | 3b 0d 03 16 2f e7 20 4d |gorithm"|;.../. M|
|000007b0| 6f 64 65 3d 33 20 8c 20 | f1 8a 31 30 2c 32 31 29 |ode=3 . |..10,21)|
|000007c0| 3b 42 24 22 42 6f 79 65 | 72 2d 4d 6f 6f 72 65 20 |;B$"Boye|r-Moore |
|000007d0| 6d 65 74 68 6f 64 22 3b | 0d 03 20 05 20 0d 03 2a |method";|.. . ..*|
|000007e0| 05 f5 0d 03 34 05 20 0d | 03 3e 05 f5 0d 03 48 15 |....4. .|.>....H.|
|000007f0| f1 8a 30 2c 32 33 29 3b | c4 34 30 2c 22 20 22 29 |..0,23);|.40," ")|
|00000800| 3b 0d 03 52 15 f1 8a 30 | 2c 32 34 29 3b c4 31 33 |;..R...0|,24);.13|
|00000810| 2c 22 20 22 29 3b 0d 03 | 5c 1b f1 20 52 24 3b c4 |," ");..|\.. R$;.|
|00000820| 31 35 2c 22 5f 22 29 2b | c4 31 30 2c 22 20 22 29 |15,"_")+|.10," ")|
|00000830| 3b 0d 03 66 1b f1 8a 31 | 2c 32 33 29 3b 22 54 65 |;..f...1|,23);"Te|
|00000840| 73 74 20 73 74 72 69 6e | 67 20 22 3b 0d 03 70 0c |st strin|g ";..p.|
|00000850| ef 32 33 2c 31 2c 31 7c | 0d 03 7a 0b 2a 46 58 31 |.23,1,1||..z.*FX1|
|00000860| 35 2c 31 0d 03 84 0e e8 | 86 20 22 82 22 50 61 74 |5,1.....|. "."Pat|
|00000870| 24 0d 03 8e 12 50 61 74 | 6c 65 6e 3d a9 28 50 61 |$....Pat|len=.(Pa|
|00000880| 74 24 29 0d 03 98 1f fd | 20 50 61 74 6c 65 6e 3e |t$).....| Patlen>|
|00000890| 30 20 80 20 50 61 74 6c | 65 6e 3c 3d 50 61 74 6d |0 . Patl|en<=Patm|
|000008a0| 61 78 0d 03 a2 24 f1 8a | 31 34 2b 50 61 74 6c 65 |ax...$..|14+Patle|
|000008b0| 6e 2c 32 34 29 3b c4 32 | 35 2d 50 61 74 6c 65 6e |n,24);.2|5-Patlen|
|000008c0| 2c 22 20 22 29 3b 0d 03 | ac 1d 4c 61 73 74 70 6f |," ");..|..Lastpo|
|000008d0| 73 73 3d 54 65 78 74 6c | 65 6e 2d 50 61 74 6c 65 |ss=Textl|en-Patle|
|000008e0| 6e 2b 31 0d 03 b6 05 20 | 0d 03 c0 15 4e 6d 61 74 |n+1.... |....Nmat|
|000008f0| 63 68 3d 30 3a d1 3d 30 | 3a 54 54 3d 30 0d 03 ca |ch=0:.=0|:TT=0...|
|00000900| 0c ef 32 33 2c 31 2c 30 | 7c 0d 03 d4 14 e3 20 50 |..23,1,0||..... P|
|00000910| 70 74 3d 31 20 b8 20 50 | 61 74 6c 65 6e 0d 03 de |pt=1 . P|atlen...|
|00000920| 1c 50 61 74 6e 3f 50 70 | 74 3d 97 28 c1 50 61 74 |.Patn?Pp|t=.(.Pat|
|00000930| 24 2c 50 70 74 2c 31 29 | 29 0d 03 e8 05 ed 0d 03 |$,Ppt,1)|).......|
|00000940| f2 05 20 0d 03 fc 0d c8 | 8e 20 4d 6f 64 65 20 ca |.. .....|. Mode .|
|00000950| 0d 04 06 0f c9 20 31 3a | 20 f2 62 72 75 74 65 0d |..... 1:| .brute.|
|00000960| 04 10 0d c9 20 32 3a 20 | f2 6b 6d 70 0d 04 1a 0c |.... 2: |.kmp....|
|00000970| c9 20 33 3a 20 f2 62 6d | 0d 04 24 05 cb 0d 04 2e |. 3: .bm|..$.....|
|00000980| 05 20 0d 04 38 07 fd 20 | a3 0d 04 42 05 20 0d 04 |. ..8.. |...B. ..|
|00000990| 4c 05 20 0d 04 56 0b dd | 20 f2 64 69 73 70 0d 04 |L. ..V..| .disp..|
|000009a0| 60 08 54 54 3d 91 0d 04 | 6a 1b f1 8a 32 39 2c 32 |`.TT=...|j...29,2|
|000009b0| 33 29 3b 42 24 22 54 69 | 6d 65 3a 20 22 3b 54 54 |3);B$"Ti|me: ";TT|
|000009c0| 3b 0d 04 74 15 e7 20 70 | 6f 73 3c 3d 4c 61 73 74 |;..t.. p|os<=Last|
|000009d0| 70 6f 73 73 20 8c 0d 04 | 7e 13 4e 6d 61 74 63 68 |poss ...|~.Nmatch|
|000009e0| 3d 4e 6d 61 74 63 68 2b | 31 0d 04 88 15 79 74 61 |=Nmatch+|1....yta|
|000009f0| 62 3d 28 70 6f 73 2d 31 | 29 20 81 20 34 30 0d 04 |b=(pos-1|) . 40..|
|00000a00| 92 15 78 74 61 62 3d 28 | 70 6f 73 2d 31 29 20 83 |..xtab=(|pos-1) .|
|00000a10| 20 34 30 0d 04 9c 11 f1 | 8a 78 74 61 62 2c 79 74 | 40.....|.xtab,yt|
|00000a20| 61 62 29 3b 0d 04 a6 1d | e3 20 63 70 6f 73 3d 70 |ab);....|. cpos=p|
|00000a30| 6f 73 20 b8 20 70 6f 73 | 2b 50 61 74 6c 65 6e 2d |os . pos|+Patlen-|
|00000a40| 31 0d 04 b0 09 ef 20 42 | 6c 6b 0d 04 ba 05 ed 0d |1..... B|lk......|
|00000a50| 04 c4 3c f1 8a 30 2c 32 | 34 29 3b 52 24 22 50 6f |..<..0,2|4);R$"Po|
|00000a60| 73 23 22 3b 4e 6d 61 74 | 63 68 3b c4 2d 28 4e 6d |s#";Nmat|ch;.-(Nm|
|00000a70| 61 74 63 68 3c 31 30 30 | 29 2c 22 20 22 29 22 3a |atch<100|)," ")":|
|00000a80| 20 22 3b 70 6f 73 3b 22 | 20 22 3b 0d 04 ce 1b f1 | ";pos;"| ";.....|
|00000a90| 8a 32 39 2c 32 34 29 3b | 42 24 22 48 69 74 20 61 |.29,24);|B$"Hit a|
|00000aa0| 20 6b 65 79 22 3b 0d 04 | d8 0b 2a 46 58 31 35 2c | key";..|..*FX15,|
|00000ab0| 31 0d 04 e2 07 47 3d a5 | 0d 04 ec 11 f1 8a 78 74 |1....G=.|......xt|
|00000ac0| 61 62 2c 79 74 61 62 29 | 3b 0d 04 f6 15 e3 20 63 |ab,ytab)|;..... c|
|00000ad0| 70 6f 73 3d 31 20 b8 20 | 50 61 74 6c 65 6e 0d 05 |pos=1 . |Patlen..|
|00000ae0| 00 0f ef 20 50 61 74 6e | 3f 63 70 6f 73 0d 05 0a |... Patn|?cpos...|
|00000af0| 05 ed 0d 05 14 05 cd 0d | 05 1e 14 e7 20 54 70 74 |........|.... Tpt|
|00000b00| 3e 4c 61 73 74 70 6f 73 | 73 20 8c 0d 05 28 0c f1 |>Lastpos|s ...(..|
|00000b10| 8a 30 2c 32 34 29 3b 0d | 05 32 22 e7 20 4e 6d 61 |.0,24);.|.2". Nma|
|00000b20| 74 63 68 3d 30 20 f1 20 | 3b 52 24 22 88 4e 6f 74 |tch=0 . |;R$".Not|
|00000b30| 20 66 6f 75 6e 64 89 22 | 3b 0d 05 3c 29 e7 20 4e | found."|;..<). N|
|00000b40| 6d 61 74 63 68 3e 30 20 | f1 20 3b 52 24 3b 4e 6d |match>0 |. ;R$;Nm|
|00000b50| 61 74 63 68 3b 22 20 6d | 61 74 63 68 28 65 73 29 |atch;" m|atch(es)|
|00000b60| 22 3b 0d 05 46 1b f1 8a | 32 39 2c 32 34 29 3b 42 |";..F...|29,24);B|
|00000b70| 24 22 48 69 74 20 61 20 | 6b 65 79 22 3b 0d 05 50 |$"Hit a |key";..P|
|00000b80| 0b 2a 46 58 31 35 2c 31 | 0d 05 5a 07 47 3d a5 0d |.*FX15,1|..Z.G=..|
|00000b90| 05 64 05 cd 0d 05 6e 16 | f1 8a 32 39 2c 32 33 29 |.d....n.|..29,23)|
|00000ba0| 3b c4 31 31 2c 22 20 22 | 29 3b 0d 05 78 16 f1 8a |;.11," "|);..x...|
|00000bb0| 32 39 2c 32 34 29 3b c4 | 31 30 2c 22 20 22 29 3b |29,24);.|10," ");|
|00000bc0| 0d 05 82 08 d1 3d 54 54 | 0d 05 8c 05 e1 0d 05 96 |.....=TT|........|
|00000bd0| 05 20 0d 05 a0 05 20 0d | 05 aa 0a dd 20 f2 6b 6d |. .... .|.... .km|
|00000be0| 70 0d 05 b4 0e f2 73 65 | 74 75 70 62 61 63 6b 0d |p.....se|tupback.|
|00000bf0| 05 be 12 ea 20 54 70 74 | 2c 50 70 74 2c 53 74 2c |.... Tpt|,Ppt,St,|
|00000c00| 54 0d 05 c8 09 54 70 74 | 3d 31 0d 05 d2 13 c8 95 |T....Tpt|=1......|
|00000c10| 20 54 70 74 3c 3d 54 65 | 78 74 6c 65 6e 0d 05 dc | Tpt<=Te|xtlen...|
|00000c20| 09 50 70 74 3d 31 0d 05 | e6 05 f5 0d 05 f0 09 54 |.Ppt=1..|.......T|
|00000c30| 3d 54 70 74 0d 05 fa 13 | 79 74 61 62 3d 28 54 2d |=Tpt....|ytab=(T-|
|00000c40| 31 29 20 81 20 34 30 0d | 06 04 13 78 74 61 62 3d |1) . 40.|...xtab=|
|00000c50| 28 54 2d 31 29 20 83 20 | 34 30 0d 06 0e 11 f1 8a |(T-1) . |40......|
|00000c60| 78 74 61 62 2c 79 74 61 | 62 29 3b 0d 06 18 09 ef |xtab,yta|b);.....|
|00000c70| 20 42 6c 6b 0d 06 22 19 | e7 20 54 65 78 74 3f 54 | Blk..".|. Text?T|
|00000c80| 70 74 3d 50 61 74 6e 3f | 50 70 74 20 8c 0d 06 2c |pt=Patn?|Ppt ...,|
|00000c90| 11 54 70 74 2b 3d 31 3a | 50 70 74 2b 3d 31 0d 06 |.Tpt+=1:|Ppt+=1..|
|00000ca0| 36 05 cc 0d 06 40 10 50 | 70 74 3d 4e 65 78 74 3f |6....@.P|pt=Next?|
|00000cb0| 50 70 74 0d 06 4a 1a e7 | 20 50 70 74 3d 30 20 8c |Ppt..J..| Ppt=0 .|
|00000cc0| 3a 50 70 74 3d 31 3a 54 | 70 74 2b 3d 31 0d 06 54 |:Ppt=1:T|pt+=1..T|
|00000cd0| 05 cd 0d 06 5e 11 f1 8a | 78 74 61 62 2c 79 74 61 |....^...|xtab,yta|
|00000ce0| 62 29 3b 0d 06 68 0c ef | 20 54 65 78 74 3f 54 0d |b);..h..| Text?T.|
|00000cf0| 06 72 1e fd 20 50 70 74 | 3e 50 61 74 6c 65 6e 20 |.r.. Ppt|>Patlen |
|00000d00| 84 20 54 70 74 3e 54 65 | 78 74 6c 65 6e 0d 06 7c |. Tpt>Te|xtlen..||
|00000d10| 29 70 6f 73 3d 54 70 74 | 3a e7 20 50 70 74 3e 50 |)pos=Tpt|:. Ppt>P|
|00000d20| 61 74 6c 65 6e 20 8c 20 | 70 6f 73 3d 54 70 74 2d |atlen . |pos=Tpt-|
|00000d30| 50 61 74 6c 65 6e 0d 06 | 86 09 f2 64 69 73 70 0d |Patlen..|...disp.|
|00000d40| 06 90 05 ce 0d 06 9a 05 | e1 0d 06 a4 05 20 0d 06 |........|..... ..|
|00000d50| ae 05 20 0d 06 b8 10 dd | 20 f2 73 65 74 75 70 62 |.. .....| .setupb|
|00000d60| 61 63 6b 0d 06 c2 0d ea | 20 54 70 74 2c 50 70 74 |ack.....| Tpt,Ppt|
|00000d70| 0d 06 cc 18 54 70 74 3d | 31 3a 50 70 74 3d 30 3a |....Tpt=|1:Ppt=0:|
|00000d80| 4e 65 78 74 3f 31 3d 30 | 0d 06 d6 05 f5 0d 06 e0 |Next?1=0|........|
|00000d90| 21 e7 20 50 70 74 3d 30 | 20 84 20 50 61 74 6e 3f |!. Ppt=0| . Patn?|
|00000da0| 54 70 74 3d 50 61 74 6e | 3f 50 70 74 20 8c 0d 06 |Tpt=Patn|?Ppt ...|
|00000db0| ea 11 54 70 74 2b 3d 31 | 3a 50 70 74 2b 3d 31 0d |..Tpt+=1|:Ppt+=1.|
|00000dc0| 06 f4 3a e7 20 50 61 74 | 6e 3f 54 70 74 3d 50 61 |..:. Pat|n?Tpt=Pa|
|00000dd0| 74 6e 3f 50 70 74 20 8c | 20 4e 65 78 74 3f 54 70 |tn?Ppt .| Next?Tp|
|00000de0| 74 3d 4e 65 78 74 3f 50 | 70 74 20 8b 20 4e 65 78 |t=Next?P|pt . Nex|
|00000df0| 74 3f 54 70 74 3d 50 70 | 74 0d 06 fe 05 cc 0d 07 |t?Tpt=Pp|t.......|
|00000e00| 08 10 50 70 74 3d 4e 65 | 78 74 3f 50 70 74 0d 07 |..Ppt=Ne|xt?Ppt..|
|00000e10| 12 05 cd 0d 07 1c 11 fd | 20 54 70 74 3e 3d 50 61 |........| Tpt>=Pa|
|00000e20| 74 6c 65 6e 0d 07 26 05 | e1 0d 07 30 05 20 0d 07 |tlen..&.|...0. ..|
|00000e30| 3a 05 20 0d 07 44 0c dd | 20 f2 62 72 75 74 65 0d |:. ..D..| .brute.|
|00000e40| 07 4e 12 ea 20 54 70 74 | 2c 50 70 74 2c 53 74 2c |.N.. Tpt|,Ppt,St,|
|00000e50| 54 0d 07 58 09 54 70 74 | 3d 31 0d 07 62 13 c8 95 |T..X.Tpt|=1..b...|
|00000e60| 20 54 70 74 3c 3d 54 65 | 78 74 6c 65 6e 0d 07 6c | Tpt<=Te|xtlen..l|
|00000e70| 09 50 70 74 3d 31 0d 07 | 76 05 f5 0d 07 80 09 54 |.Ppt=1..|v......T|
|00000e80| 3d 54 70 74 0d 07 8a 13 | 79 74 61 62 3d 28 54 2d |=Tpt....|ytab=(T-|
|00000e90| 31 29 20 81 20 34 30 0d | 07 94 13 78 74 61 62 3d |1) . 40.|...xtab=|
|00000ea0| 28 54 2d 31 29 20 83 20 | 34 30 0d 07 9e 11 f1 8a |(T-1) . |40......|
|00000eb0| 78 74 61 62 2c 79 74 61 | 62 29 3b 0d 07 a8 09 ef |xtab,yta|b);.....|
|00000ec0| 20 42 6c 6b 0d 07 b2 19 | e7 20 54 65 78 74 3f 54 | Blk....|. Text?T|
|00000ed0| 70 74 3d 50 61 74 6e 3f | 50 70 74 20 8c 0d 07 bc |pt=Patn?|Ppt ....|
|00000ee0| 11 54 70 74 2b 3d 31 3a | 50 70 74 2b 3d 31 0d 07 |.Tpt+=1:|Ppt+=1..|
|00000ef0| c6 05 cc 0d 07 d0 0e 54 | 70 74 2b 3d 32 2d 50 70 |.......T|pt+=2-Pp|
|00000f00| 74 0d 07 da 09 50 70 74 | 3d 31 0d 07 e4 05 cd 0d |t....Ppt|=1......|
|00000f10| 07 ee 11 f1 8a 78 74 61 | 62 2c 79 74 61 62 29 3b |.....xta|b,ytab);|
|00000f20| 0d 07 f8 0c ef 20 54 65 | 78 74 3f 54 0d 08 02 1e |..... Te|xt?T....|
|00000f30| fd 20 50 70 74 3e 50 61 | 74 6c 65 6e 20 84 20 54 |. Ppt>Pa|tlen . T|
|00000f40| 70 74 3e 54 65 78 74 6c | 65 6e 0d 08 0c 29 70 6f |pt>Textl|en...)po|
|00000f50| 73 3d 54 70 74 3a e7 20 | 50 70 74 3e 50 61 74 6c |s=Tpt:. |Ppt>Patl|
|00000f60| 65 6e 20 8c 20 70 6f 73 | 3d 54 70 74 2d 50 61 74 |en . pos|=Tpt-Pat|
|00000f70| 6c 65 6e 0d 08 16 09 f2 | 64 69 73 70 0d 08 20 05 |len.....|disp.. .|
|00000f80| ce 0d 08 2a 05 e1 0d 08 | 34 05 20 0d 08 3e 05 20 |...*....|4. ..>. |
|00000f90| 0d 08 48 10 dd 20 f2 73 | 65 74 75 70 73 6b 69 70 |..H.. .s|etupskip|
|00000fa0| 0d 08 52 0f ea 20 61 73 | 63 69 69 2c 50 70 74 0d |..R.. as|cii,Ppt.|
|00000fb0| 08 5c 19 e3 20 61 73 63 | 69 69 3d 30 20 b8 20 61 |.\.. asc|ii=0 . a|
|00000fc0| 73 63 69 69 63 68 61 72 | 0d 08 66 15 53 6b 69 70 |sciichar|..f.Skip|
|00000fd0| 3f 61 73 63 69 69 3d 50 | 61 74 6c 65 6e 0d 08 70 |?ascii=P|atlen..p|
|00000fe0| 05 ed 0d 08 7a 16 e3 20 | 50 70 74 3d 31 20 b8 20 |....z.. |Ppt=1 . |
|00000ff0| 50 61 74 6c 65 6e 2d 31 | 0d 08 84 1e 53 6b 69 70 |Patlen-1|....Skip|
|00001000| 3f 28 50 61 74 6e 3f 50 | 70 74 29 3d 50 61 74 6c |?(Patn?P|pt)=Patl|
|00001010| 65 6e 2d 50 70 74 0d 08 | 8e 05 ed 0d 08 98 1c 53 |en-Ppt..|.......S|
|00001020| 6c 61 73 74 3d 53 6b 69 | 70 3f 28 50 61 74 6e 3f |last=Ski|p?(Patn?|
|00001030| 50 61 74 6c 65 6e 29 0d | 08 a2 18 53 6b 69 70 3f |Patlen).|...Skip?|
|00001040| 28 50 61 74 6e 3f 50 61 | 74 6c 65 6e 29 3d 30 0d |(Patn?Pa|tlen)=0.|
|00001050| 08 ac 05 e1 0d 08 b6 05 | 20 0d 08 c0 05 20 0d 08 |........| .... ..|
|00001060| ca 09 dd 20 f2 62 6d 0d | 08 d4 0e f2 73 65 74 75 |... .bm.|....setu|
|00001070| 70 73 6b 69 70 0d 08 de | 1f ea 20 54 70 74 2c 54 |pskip...|.. Tpt,T|
|00001080| 63 68 61 72 2c 50 70 74 | 2c 50 6d 31 2c 53 74 2c |char,Ppt|,Pm1,St,|
|00001090| 54 2c 53 6b 0d 08 e8 24 | 54 70 74 3d 50 61 74 6c |T,Sk...$|Tpt=Patl|
|000010a0| 65 6e 3a 50 6d 31 3d 50 | 61 74 6c 65 6e 2d 31 3a |en:Pm1=P|atlen-1:|
|000010b0| 44 65 6c 74 3d 50 6d 31 | 0d 08 f2 16 e7 20 44 65 |Delt=Pm1|..... De|
|000010c0| 6c 74 3c 3d 30 20 8c 20 | 44 65 6c 74 3d 31 0d 08 |lt<=0 . |Delt=1..|
|000010d0| fc 13 c8 95 20 54 70 74 | 3c 3d 54 65 78 74 6c 65 |.... Tpt|<=Textle|
|000010e0| 6e 0d 09 06 0e 50 70 74 | 3d 50 61 74 6c 65 6e 0d |n....Ppt|=Patlen.|
|000010f0| 09 10 05 f5 0d 09 1a 09 | 54 3d 54 70 74 0d 09 24 |........|T=Tpt..$|
|00001100| 13 79 74 61 62 3d 28 54 | 2d 31 29 20 81 20 34 30 |.ytab=(T|-1) . 40|
|00001110| 0d 09 2e 13 78 74 61 62 | 3d 28 54 2d 31 29 20 83 |....xtab|=(T-1) .|
|00001120| 20 34 30 0d 09 38 11 f1 | 8a 78 74 61 62 2c 79 74 | 40..8..|.xtab,yt|
|00001130| 61 62 29 3b 0d 09 42 09 | ef 20 42 6c 6b 0d 09 4c |ab);..B.|. Blk..L|
|00001140| 16 53 6b 3d 53 6b 69 70 | 3f 28 54 65 78 74 3f 54 |.Sk=Skip|?(Text?T|
|00001150| 70 74 29 0d 09 56 0c e7 | 20 53 6b 3e 30 20 8c 0d |pt)..V..| Sk>0 ..|
|00001160| 09 60 0b 54 70 74 2b 3d | 53 6b 0d 09 6a 05 cc 0d |.`.Tpt+=|Sk..j...|
|00001170| 09 74 0f 54 63 68 61 72 | 3d 54 70 74 2d 31 0d 09 |.t.Tchar|=Tpt-1..|
|00001180| 7e 0b 50 70 74 3d 50 6d | 31 0d 09 88 22 c8 95 20 |~.Ppt=Pm|1...".. |
|00001190| 50 70 74 3e 30 20 80 20 | 54 65 78 74 3f 54 63 68 |Ppt>0 . |Text?Tch|
|000011a0| 61 72 3d 50 61 74 6e 3f | 50 70 74 0d 09 92 0c 54 |ar=Patn?|Ppt....T|
|000011b0| 63 68 61 72 2d 3d 31 0d | 09 9c 0a 50 70 74 2d 3d |char-=1.|...Ppt-=|
|000011c0| 31 0d 09 a6 05 ce 0d 09 | b0 0e 54 70 74 2b 3d 53 |1.......|..Tpt+=S|
|000011d0| 6c 61 73 74 0d 09 ba 05 | cd 0d 09 c4 11 f1 8a 78 |last....|.......x|
|000011e0| 74 61 62 2c 79 74 61 62 | 29 3b 0d 09 ce 0c ef 20 |tab,ytab|);..... |
|000011f0| 54 65 78 74 3f 54 0d 09 | d8 19 fd 20 50 70 74 3d |Text?T..|... Ppt=|
|00001200| 30 20 84 20 54 70 74 3e | 54 65 78 74 6c 65 6e 0d |0 . Tpt>|Textlen.|
|00001210| 09 e2 0d e7 20 50 70 74 | 3d 30 20 8c 0d 09 ec 0f |.... Ppt|=0 .....|
|00001220| 70 6f 73 3d 54 63 68 61 | 72 2b 31 0d 09 f6 0d 54 |pos=Tcha|r+1....T|
|00001230| 70 74 2b 3d 44 65 6c 74 | 0d 0a 00 05 cc 0d 0a 0a |pt+=Delt|........|
|00001240| 11 70 6f 73 3d 54 65 78 | 74 6c 65 6e 2b 31 0d 0a |.pos=Tex|tlen+1..|
|00001250| 14 05 cd 0d 0a 1e 09 f2 | 64 69 73 70 0d 0a 28 05 |........|disp..(.|
|00001260| ce 0d 0a 32 05 e1 0d ff |                         |...2....|        |
+--------+-------------------------+-------------------------+--------+--------+